home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 24 / PC Gamer IT CD 24 2-2.iso / MULTIM / alarm10x / AlarmClk.exe / 0 / RCDATA / TTRAYICONFORM / TTRAYICONFORM.txt < prev   
Text File  |  1997-07-11  |  2KB  |  82 lines
  1. object TrayIconForm: TTrayIconForm
  2.   Left = 201
  3.   Top = 110
  4.   HelpContext = 1
  5.   BorderStyle = bsToolWindow
  6.   Caption = 'Alarm Clock'
  7.   ClientHeight = 67
  8.   ClientWidth = 217
  9.   Font.Color = clWindowText
  10.   Font.Height = -11
  11.   Font.Name = 'MS Sans Serif'
  12.   Font.Style = []
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object TrayIcon1: TTrayIcon
  18.     Active = True
  19.     ShowDesigning = False
  20.     Icon.Data = {<image000.ico>}
  21.     ToolTip = 'Right click on the Alarm icon for the menu'
  22.     OnClick = TrayIcon1Click
  23.     PopupMenu = PMenu
  24.     Left = 176
  25.     Top = 24
  26.   end
  27.   object PMenu: TPopupMenu
  28.     Left = 144
  29.     Top = 24
  30.     object About: TMenuItem
  31.       Caption = '&About Alarm Clock...'
  32.       ShortCut = 0
  33.       OnClick = AboutClick
  34.     end
  35.     object AlarmsWindow1: TMenuItem
  36.       Caption = '&Alarms Window'
  37.       ShortCut = 0
  38.       OnClick = AlarmsWindow1Click
  39.     end
  40.     object Help1: TMenuItem
  41.       Caption = '&Help'
  42.       ShortCut = 112
  43.       OnClick = Help1Click
  44.     end
  45.     object Configure1: TMenuItem
  46.       Caption = '&Configure'
  47.       ShortCut = 0
  48.       OnClick = Configure1Click
  49.     end
  50.     object Register1: TMenuItem
  51.       Caption = '&Register'
  52.       ShortCut = 0
  53.       OnClick = Register1Click
  54.     end
  55.     object N1: TMenuItem
  56.       Caption = '-'
  57.       ShortCut = 0
  58.     end
  59.     object Close1: TMenuItem
  60.       Caption = 'E&xit program'
  61.       ShortCut = 0
  62.       OnClick = Close1Click
  63.     end
  64.   end
  65.   object Timer1: TTimer
  66.     Interval = 10000
  67.     OnTimer = Timer1Timer
  68.     Left = 112
  69.     Top = 24
  70.   end
  71.   object OnlyOne1: TOnlyOne
  72.     Left = 56
  73.     Top = 32
  74.   end
  75.   object Timer2: TTimer
  76.     Enabled = False
  77.     OnTimer = Timer2Timer
  78.     Left = 8
  79.     Top = 16
  80.   end
  81. end
  82.